home *** CD-ROM | disk | FTP | other *** search
/ Your Choice 3 / Your Choice Software Collection 3.iso / os2 / pluma112 / ndrlands.cmd < prev    next >
OS/2 REXX Batch file  |  1994-09-08  |  3KB  |  141 lines
  1. /* NDRLANDS.CMD : Installeer de Nederlandse versie van Pluma. */
  2.  
  3. '@echo off'
  4.  
  5. /* Zet de titel van het programma */
  6.  
  7. Title = 'Pluma 1.12'
  8.  
  9.  
  10. /* Laad REXXUTIL */
  11.  
  12. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  13. Call SysLoadFuncs
  14.  
  15.  
  16. /* Initialiseer */
  17.  
  18. Signal On Failure Name FAILURE
  19. Signal On Halt Name HALT
  20. Signal On Syntax Name SYNTAX
  21.  
  22. Call SysCls
  23. Say 'Installatie van Pluma nu bezig...'
  24. Say ''
  25.  
  26.  
  27. /* Controlleer of de verschillende bestanden beschikbaar zijn. */
  28.  
  29. Language = 'NDRLANDS'
  30.  
  31. Result = SysFileTree( 'PLUMA.EXE', 'Files', 'F')
  32. If Files.0 = 0 Then
  33.    Do
  34.    Say 'FOUT: PLUMA.EXE niet gevonden!'
  35.    Signal DONE
  36.    End
  37.  
  38. Result = SysFileTree( Language".DLL", 'Files', 'F')
  39. If Files.0 = 0 Then
  40.    Do
  41.    Say 'FOUT: 'Language'.DLL niet gevonden!'
  42.    Signal DONE
  43.    End
  44.  
  45. Result = SysFileTree( Language".HLP", 'Files', 'F')
  46. If Files.0 = 0 Then
  47.    Do
  48.    Say 'FOUT: 'Language'.HLP niet gevonden!'
  49.    Signal DONE
  50.    End
  51.  
  52. /* Vraag naar de directory waarin het programma moet geplaatst worden */
  53.  
  54. Say 'Geef a.u.b. de volledige naam van de directory waarin'
  55. Say ' PLUMA moet geplaatst worden (standaard C:\OS2\APPS): '
  56. Pull Directory
  57. If Directory = "" Then Directory = 'C:\OS2\APPS'
  58.  
  59.  
  60. /* Maak de aangegeven directory indien nodig */
  61.  
  62. Result = SysFileTree( Directory, 'Dirs', 'D')
  63. If Dirs.0 = 0 Then
  64.    Do
  65.    Result - SysMkDir( Directory )
  66.    If Result == 0 Then
  67.       Do
  68.       End
  69.    Else
  70.       Do
  71.       Say 'FOUT: Onmogelijk om de aangegeven directory te maken.'
  72.       Signal DONE
  73.       End
  74.    End
  75. Say ''
  76.  
  77.  
  78. /* Voer de installatie uit */
  79.  
  80. Say 'PLUMA wordt op' Directory 'gecopieerd...'
  81. Copy PLUMA.EXE Directory                   '1>NUL'
  82. Copy PLUMA.ICO Directory                   '1>NUL'
  83. Copy Language".DLL" Directory"\PLUMA.DLL"  '1>NUL'
  84. Copy Language".HLP" Directory"\PLUMA.HLP"  '1>NUL'
  85. Copy Language".DOC" Directory"\PLUMA.DOC"  '1>NUL'
  86.  
  87. Result = SysFileTree( Language".INF", 'Files', 'F' )
  88. If Files.0 > 0 Then
  89.    Do
  90.    Copy Language".INF" Directory"\PLUMA.INF"  '1>NUL'
  91.    End
  92.  
  93. Say 'Programmafolder wordt gemaakt...'
  94. Type = 'WPFolder'
  95. Folder = '<WP_DESKTOP>'
  96. Parms = "OPEN=ICON;OBJECTID=<PLUMAF>;ICONFILE="Directory"\PLUMA.ICO;"
  97. Result = SysCreateObject( Type, 'Pluma', Folder, Parms, 'ReplaceIfExists' )
  98. If Result != 1 Then
  99.    Say 'FOUT: Folder niet gemaakt.'
  100.  
  101. Say 'Het programma-object wordt gemaakt...'
  102. Type = 'WPProgram'
  103. Folder = '<PLUMAF>'
  104. Parms = "MINWIN=DESKTOP;PROGTYPE=PM;EXENAME="Directory"\PLUMA.EXE;STARTUPDIR="Directory";OBJECTID=<PLUMA>;NOPRINT=YES;ASSOCTYPE=Pluma;"
  105. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  106. If Result != 1 Then
  107.    Say 'FOUT: Object niet gemaakt.'
  108.  
  109. Say 'Objecten voor documentatie worden gemaakt...'
  110. Type = 'WPShadow'
  111. Parms = "SHADOWID="Directory"\PLUMA.DOC;OBJECTID=<PLUMAD>;"
  112. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  113. If Result != 1 Then
  114.    Say 'FOUT: Schaduw niet gemaakt.'
  115.  
  116. Result = SysFileTree( Directory"\PLUMA.INF", 'Files', 'F' )
  117. If Files.0 > 0 Then Do
  118.   Parms = "SHADOWID="Directory"\PLUMA.INF;OBJECTID=<PLUMAI>;"
  119.   Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  120.   If Result != 1 Then Do
  121.     Say 'FOUT: Schaduw niet gemaakt.'
  122.     End
  123.   End
  124.  
  125. Signal DONE
  126.  
  127. FAILURE:
  128. Say 'REXX fout.'
  129. Signal DONE
  130.  
  131. HALT:
  132. Say 'REXX halt.'
  133. Signal DONE
  134.  
  135. SYNTAX:
  136. Say 'REXX taalfout.'
  137. Signal DONE
  138.  
  139. DONE:
  140. Exit
  141.